home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00020_Script_#go to archive < prev    next >
Text File  |  1997-07-29  |  693b  |  24 lines
  1. on mousedown
  2.   -- close any open window(s)
  3.   repeat with theWindow in the windowList
  4.     forget theWindow
  5.   end repeat -- kf prs 11/29/96
  6.   set the castnum of sprite the clickon = cast "sh_archive dim"
  7.   updatestage
  8.   repeat while the stilldown
  9.   end repeat
  10. end
  11. on mouseUp
  12.   if rollover(the clickon) then
  13.     waitcursor the clickon
  14.     if the visible of window "textpop.dir" = true then forget window "textpop.dir"
  15.     if the colordepth > 8 then puppettransition 51,02,08
  16.     go to "fadeout"
  17.     set the castnum of sprite 1 to cast "load_arch"
  18.     updatestage
  19.     -- sound transition goes here
  20.     unload
  21.     -- some music here
  22.     go to movie "archive.dir"
  23.   end if
  24. end